Shareware Grab Bag/Shareware Grab Bag.iso/007/boosters.arc/REMBLK.PAS

Pascal/Delphi Source File | 1980-01-01 | 2.1 KB | 58 lines

{ ---------------------------------------------
  REMBLK blanks a specified area of the display
  --------------------------------------------- }
Procedure REMBLK ( X1,Y1,X2,Y2 : Integer);
begin
   InLine ( $1E/
            $8B/$46/$08/
            $8B/$56/$04/
            $29/$C2/
            $42/
            $52/
            $8B/$46/$0A/
            $8B/$4E/$06/
            $29/$C1/
            $41/
            $51/
            $BB/$49/$04/         { mov   bx,449h        video byte offset   }
            $31/$C0/             { xor   ax,ax          ax = 0              }
            $8E/$D8/             { mov   ds,ax          video byte seg      }
            $8A/$07/             { mov   al,[bx]        get byte            }
            $3C/$07/             { cmp   al,7           mono?               }
            $75/$06/             { jne   graphx         no                  }
            $BA/$00/$B0/         { mov   dx,0B000h      regen for mono      }
            $EB/$0C/$90/         { jmp   contin                             }
            $BA/$DA/$03/        { mov  dx,3DAh  IBM CGA   }
            $EC/                { in   al,dx    will snow }
            $24/$08/            { and  al,1000b w/o this  }
            $74/$FB/            { jz   vtrace   check     }
                         { graphx:                                          }
            $BA/$00/$B8/         { mov   dx,0B800h      regen for graphics  }
            $8E/$C2/     { contin: mov   es,dx                              }
            $8B/$7E/$08/
            $4F/
            $8B/$D7/
            $B1/$07/
            $D3/$E2/
            $B1/$05/
            $D3/$E7/
            $01/$D7/
            $8B/$46/$0A/
            $48/
            $D1/$E0/
            $01/$C7/
            $59/
            $5A/
            $B8/$20/$0E/
            $FC/
            $51/
            $F3/$AB/
            $59/
            $4A/
            $74/$0A/
            $81/$C7/$A0/$00/
            $29/$CF/
            $29/$CF/
            $EB/$EF/
            $1F);
end;